home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / qwklimit.zip / QWKLIMIT.RS < prev   
Text File  |  1992-09-21  |  2KB  |  104 lines
  1. TITLE "Mail Run Script for Specific Range of Conferences"
  2. ;----------------------------------------------------------------------
  3. ;
  4. ; BBS Macros used in this script:
  5. ;
  6. ;   32      More?
  7. ;   41      Start Mail Download
  8. ;   42      Start Mail Upload
  9. ;   43      Packet Transfer Confirmation.
  10. ;   44      No Mail to Download
  11. ;
  12. ;----------------------------------------------------------------------
  13. PARAMETER 1 "Mail Scan Starting Conference Number"
  14. PARAMETER 2 "Mail Scan Ending Conference Number  "
  15. PARAMETER 3 "Send Replies? (Y/N)"
  16. PARAMETER 4 "Hang up after mail run? (Y/N)"
  17. ENDPARAMS
  18.    
  19.     IF EMPTY "%P1%" GOTO PARAM_ERROR
  20.     IF EMPTY "%P2%" GOTO PARAM_ERROR
  21.     IF EMPTY "%P3%" GOTO PARAM_ERROR
  22.     IF EMPTY "%P4%" GOTO PARAM_ERROR
  23.  
  24.     ; Default to ten minutes to scan for mail.
  25.     ; Edit this if desired.
  26.     TIMEOUT 600
  27.  
  28.     ; Get to mail door
  29.     VENUE MAIL
  30.  
  31.     IF YES "%P3%" GOTO SENDREP
  32.     GOTO GETMAIL
  33.  
  34. :SENDREP 
  35.     ; Send Replies if present
  36.     IF NOT EXIST "%REPDIR%%ID%.REP" GOTO NOREP
  37.     SEND "U|"
  38.     WAITFOR "%BBS42%" FAILURE GOTO I_AM_LOST
  39.     MESSAGE "Uploading %REPDIR%%ID%.REP"
  40.     UPLOAD "%REPDIR%%ID%.REP" USING "%BBS21%"
  41.     ; Will keep up to 9 old rep packets.  Edit if desired.
  42.     RENUMBER "%REPDIR%%ID%.REP" 9
  43.     GOTO GETMAIL 
  44.  
  45. :NOREP
  46.     MESSAGE "No %REPDIR%%ID%.REP to send"
  47.  
  48. :GETMAIL
  49.     ; Request the mail packet
  50.     SEND "D %P1%-%P2%|"
  51.  
  52.     WHEN "%BBS43%" SEND "Y|"
  53.     WHEN "%BBS44%" GOTO ENDRUN
  54.     WAITFOR "%BBS41%" FAILURE GOTO SLOW_BBS
  55.  
  56.     ; Keep 9 old QWK packets by default.
  57.     ; Edit this if desired.
  58.     IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK" 9
  59.  
  60.     ; Download the QWK packet.
  61.     MESSAGE "Downloading %QWKDIR%%ID%.QWK"
  62.     DOWNLOAD "%QWKDIR%%ID%.QWK" USING "%BBS22%"
  63.  
  64.     GOSUB GET_TO_COMMAND
  65.     GOTO GETMAIL
  66.  
  67. :ENDRUN
  68.     IF YES "%P4%" GOTO DROP_CARRIER
  69.     GOSUB GET_TO_COMMAND
  70.     SEND "Q|"
  71. EXIT 0
  72.  
  73. :DROP_CARRIER
  74.     MESSAGE "Dropping carrier per request"
  75.     HANGUP
  76. EXIT 0
  77.  
  78. :GET_TO_COMMAND
  79.     SEND "|"
  80.     CLEAR
  81.     WHEN "%BBS32%" SEND "|"
  82.     WHEN "to continue..." SEND "|"
  83.     WAITFOR "%BBS40%" FAILURE GOTO I_AM_LOST
  84. RETURN
  85.  
  86. :SLOW_BBS
  87.     MESSAGE "^UERROR:^U Timeout during mail run."
  88.     HANGUP
  89.     CLOSE
  90. EXIT 1
  91.  
  92. :I_AM_LOST
  93.     MESSAGE "^UERROR:^U Sorry - I am lost."
  94.     HANGUP
  95.     CLOSE
  96. EXIT 1
  97.  
  98. :PARAM_ERROR
  99.     MESSAGE "^UERROR:^U All parameters are required!"
  100.     CLOSE
  101. EXIT 1
  102.  
  103. ;eof
  104.